home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / networking / mail / mailarchiv38_3.lha / MailArchiver / InstallMailArchiver < prev    next >
Encoding:
Text File  |  1994-04-25  |  2.1 KB  |  72 lines
  1. ;---------------------------------------------------------------
  2. ;
  3. ; Installer script for MailArchiver
  4. ; $VER: 36.0 (24.04.94)
  5. ; Written by Denis GOUNELLE
  6. ;
  7. ;---------------------------------------------------------------
  8. ;
  9. (complete 0)
  10. (set ProgVer  "38.2")
  11. (set ProgName "MailArchiver")
  12. (set KickVer  (/ (getversion) 65536))
  13. (set SCFlag   (if (AND (> KickVer 35) (exists "S:.SoftConfig")) 1 0))
  14. ;
  15. (set InstallOpt
  16.     (askoptions (prompt "Which part of the program whould you like to install ?")
  17.             (help @askoptions-help)
  18.             (choices "Program" "Locales")
  19.     )
  20. )
  21. ;
  22. ;--------------------- Install the program --------------------
  23. ;
  24. (complete 33)
  25. (if (BITAND InstallOpt 1)
  26.     ((set ProgDir (askdir
  27.         (prompt "Select the directory where to install MailArchiver")
  28.         (help "The program will be copied in this directory. You may want to install MailArchiver in a directory which is in your default path.")
  29.         (default "SYS:Utilities/")
  30.         )
  31.      )
  32.      (copyfiles (prompt "Installing program")
  33.         (help @copyfiles-help)
  34.         (source ProgName)
  35.         (newname "MailArchiver")
  36.         (dest ProgDir)
  37.         (infos)
  38.      )
  39.      (if SCFlag (run (cat "SoftConfig ADD MailArchiver " (tackon ProgDir "MailArchiver") " FILE " ProgVer)))
  40.     )
  41. )
  42. ;
  43. ;--------------------- Install the locale --------------------
  44. ;
  45. (complete 66)
  46. (if (BITAND InstallOpt 2)
  47.     ((set Langage (askchoice (prompt "Which locale do you want to install ?")
  48.                 (help @askchoice-help)
  49.                 (choices "français" "none")))
  50.      (if (= Langage 0)
  51.         ((set LocaleName "français")
  52.          (set LocaleSrc (tackon "catalogs" LocaleName))
  53.          (set LocaleDst (tackon "LOCALE:" LocaleSrc))
  54.          (set LocaleName "MailArchiver.catalog")
  55.          (if (NOT (exists LocaleDst)) (makedir LocaleDst (prompt "Creating locale directory") (help @makedir-help)))
  56.          (copyfiles (prompt "Installing locale")
  57.             (help @copyfiles-help)
  58.             (source (tackon LocaleSrc LocaleName))
  59.             (dest LocaleDst)
  60.          )
  61.          (if SCFlag
  62.             ((run (cat "SoftConfig ADD " LocaleName " " (tackon LocaleDst LocaleName) " FILE " ProgVer))
  63.              (run (cat "SoftConfig ATTACH MailArchiver " LocaleName))
  64.             )
  65.         ))
  66.     ))
  67. )
  68. ;
  69. (complete 100)
  70. (set @default-dest ProgDir)
  71.  
  72.